The Instructions

This simple RMarkdown presentatio was created as the final assignment for the Creating Data Products Coursera course. Here I will be pitching the app I created, which can be found HERE.

Requirements:

• It must be done in Slidify or Rstudio Presenter

• It must be 5 pages

• It must be hosted on github or Rpubs

• It must contained some embedded R code that gets run when slidifying the document

The Problem

Cyclistic is a fictional bike-sharing company based in Chicago, IL, and they have one question:

• How do members differ from non-members in their usage of the bikes?

To answer this question, a number of visuals (including both graphs and a map) were created to show how members and casual users differ.

Sample Graph

library(librarian)
shelf(dplyr, ggplot2, plotly)
set.seed(69)

mydata <- readRDS(file = "data.rds")
ggplotly(ggplot(mydata) +
            geom_histogram(aes(x=ride_length, fill = member_casual)) +
            xlim(0, 10000) +
            labs(fill = "Member Status?") +            
            xlab("Length of Time (s)") +
            ggtitle(paste("Distribution of","Length of Time (s)"," by Member Status")) +
            theme_bw())

The App

Here, the second tab of the app can be found. To use the app, please visit the webpage listed earlier.